home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 November / 64er_Magazin_84-11_1984_Markt__Technik_de.d64 / list 4+5+6+7 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  61 lines
  1. 10 rem ********************************
  2. 11 rem *         e  r  r  o  r        *
  3. 12 rem ********************************
  4. 13 rem * ergaenzung zu simon's basic  *
  5. 14 rem * format: D{$7e}or                *
  6. 15 rem * gibt DRstatus aus          *
  7. 16 rem * > beispiel: D{$7e}or            *
  8. 17 rem *   ergebnis: 00, ok,00,00     *
  9. 18 rem ********************************
  10. 19 k=0:print" e r r o r [146]  ?checksum ";
  11. 20 fori=$bfbb to $bfe2:read j:poke i,j:k=k+j:next
  12. 21 data32,115,,201,176,240,3,76,138,136
  13. 22 data169,8,133,186,32,180,255,169,111
  14. 23 data133,185,32,150,255,32,165,255,32
  15. 24 data210,255,201,13,208,246,32,171
  16. 25 data255,76,116,145
  17. 26 poke$87be,186:poke$87bf,191
  18. 27 ifk=5527thenprint"ok":Dg:print"error"
  19. 30 rem *******************************t
  20. 31 rem *           j  o  y            *
  21. 32 rem ********************************
  22. 33 rem * ergaenzung zu simon's basic  *
  23. 34 rem * format: Dq n                *
  24. 35 rem * stellt Dqstickport ein      *
  25. 36 rem * > beispiel: Dq1 (fuer port1)*
  26. 37 rem *             Dq2 (fuer port2)*
  27. 38 rem ********************************
  28. 39 k=0:print" j o y [146]      ?checksum ";
  29. 40 fori=$bfe3 to $bff1:read j:poke i,j:k=k+j:next
  30. 41 data32,115,,32,6,129,138,41,1,141
  31. 42 data213,136,76,42,130
  32. 43 poke$88da,111:poke$88fc,16
  33. 44 poke$8764,226:poke$8765,191
  34. 45 ifk=1232thenprint"ok":Dg:print"error"
  35. 50 rem ********************************
  36. 51 rem *          d  u  m  p          *
  37. 52 rem ********************************
  38. 53 rem * berichtigung des             *
  39. 54 rem * simon's basic-befehls Dl   *
  40. 55 rem ********************************
  41. 59 k=0:print" d u m p [146]    ?checksum ";
  42. 60 for i=$9f9c to $9fa7:read j:poke i,j:k=k+j:next
  43. 61 data 160,4,32,57,160,136,208,250,234
  44. 62 data 234,234,234:poke $80b9,221:poke $808c,68
  45. 63 poke $9fd6,240:poke $9fd7,27:poke $9fd8,200
  46. 64 for i=$9ff0 to $9ffc:read j:poke i,j:k=k+j:next
  47. 65 data 160,4,44,160,5,169,34,32,210,255,76,158,159
  48. 66 ifk=3409thenprint"ok":Dg:print"erro[164]
  49. 70 [143] ********************************
  50. 71 [143] *          p  a  g  e          *
  51. 72 [143] ********************************
  52. 73 [143] * berichtigung des             *
  53. 74 [143] * simon's basic-befehls Dk   *
  54. 75 [143] ********************************
  55. 79 k[178]0:[153]" p a g e wait    ?checksum ";
  56. 80 [129] i[178]$bff2 [164] $bffe:[135] j:[151] i,j:k[178]k[170]j:[130]
  57. 81 [131] 32,225,255,208,5,104,104,76,60
  58. 82 [131] 191,76,228,255
  59. 83 [151] $bf12,242:[151] $bf13,191
  60. 84 [139]k[178]1819[167][153]"ok":Dg:[153]"error
  61.